J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G38F/MAC_BAR.Dxr/00016.ls

Text File | 1998-01-22 | 999 b | 34 lines

on mouseDown
  global mcheck, countcast, h, maxpage, castno, moveflg, cntpage, left_p, right_p
  if moveflg = 1 then
    exit
  end if
  puppetSprite(clickOn(), 1)
  set h to the locH of sprite clickOn() - the mouseH
  set the cursor of sprite 19 to [3, 40]
  repeat while the stillDown
    set the locH of sprite clickOn() to constrainH(1, the mouseH + h)
    set mcheck to the locH of sprite clickOn()
    if mcheck < left_p then
      set the locH of sprite clickOn() to constrainH(1, left_p)
      set mcheck to left_p
    end if
    if mcheck > right_p then
      set the locH of sprite clickOn() to constrainH(1, right_p)
      set mcheck to right_p
    end if
    countcast()
  end repeat
  set the cursor of sprite 19 to [2, 39]
  set the memberNum of sprite countcast to castno + 49
  set the rect of sprite countcast to rect(mcheck - 27, 7, mcheck, 25)
  updateStage()
  if castno = cntpage then
    exit
  end if
  tell the stage
    set the soundEnabled to 0
  end tell
  jumpjump()
end